Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/DERUN.PRG

Text File | 1985-07-02 | 1KB | 39 lines

set talk off
PrgRun = Space(40)
Do While .T.
  Set Color To W+/
  Clear
  @ 1,0 SAY "╔══════════════════════════════════════════════════════════════════════════════╗"
  @ 2,0 SAY "║"
  @ 2,79 SAY "║"
  @ 3,0 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"
  @ 4,0 SAY "┌──────────────────────────────────────────────────────────────────────────────┐"
  @ 5,0 SAY "│"
  @ 5,79 SAY "│"
  @ 6,0 SAY "│"
  @ 6,79 SAY "│"
  @ 7,0 SAY "│"
  @ 7,79 SAY "│"
  @ 8,0 SAY "│"
  @ 8,79 SAY "│"
  @ 9,0 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
  Set Color To gr+/
  @ 2,10 Say '  d B A S E - I I I   .and.   C l i p p e r  ....  [Run]  '
  Set Color To bg+/,w+/b
  *
  @ 6,5 Say 'Please enter Run Line ...'
  @ 7,5 Say 'Blank to finish ' Get PrgRun
  Read
  Clear Gets
  If PrgRun = Space(40)
    Exit
  Endif
  @ 10,0 Say ' '
  Set Color To r+/
  ?? '"Run '+Trim(PrgRun)+'" ...'
  Run &PrgRun
  Wait
Enddo
Clear Gets
Return